home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed10.d64 / guess it (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  73 lines
  1. 1 REM BY ANTHONY L. NORWOOD
  2. 2 REM ON MAY 26,1989
  3. 10 PRINTCHR$(147):CLR:REM CLEAR SCREEN CLEAR VARIABLE MEMORY (A,B,C,D,E,F,G,ETC
  4. 20 POKE53280,0:POKE53281,15:REM CHANGE BORDER COLOR TO BLACK SCREEN COLOR GRAY
  5. 21 PRINT"":REM CHANGE CHARACTER COLOR (LETTER COLOR) TO RED "" =CTRL  KEY
  6. 30 PRINT"               GUESS IT        ":REM PRINT TITLE IN REVERSE CHARACTER
  7. 40 REM ""=CTRL AND #9 KEY
  8. 45 REM PRINT QUESTION MARK THREE SPACES DOWN ""=CRSR^ KEY
  9. 50 PRINT"                  *******"
  10. 60 PRINT"                         *"
  11. 70 PRINT"                         *"
  12. 80 PRINT"                         *"
  13. 90 PRINT"                         *"
  14. 100 PRINT"                     **** "
  15. 110 PRINT"                    *"
  16. 120 PRINT"                    *"
  17. 130 PRINT"                    *"
  18. 140 PRINT"                    *"
  19. 150 PRINT"                    *"
  20. 160 PRINT"                    *"
  21. 170 PRINT"      PRESS ANY KEY TO CONTINUE"
  22. 180 GET A$:IF A$="" THEN GOTO180
  23. 190 REM LINE 180 CHECKS FOR A KEY TO BE PRESSED
  24. 200 PRINTCHR$(147):REM CLEAR SCREEN
  25. 210 PRINT"1.GUESS A NUMBER FROM 1 TO 10"
  26. 220 PRINT"2.GUESS A NUMBER FROM 1 TO 100"
  27. 230 PRINT"3.GUESS A NUMBER FROM 1 TO 1000"
  28. 240 PRINT"4.GUESS A NUMBER FROM 1 TO 10000"
  29. 241 PRINT"5.GUESS A NUMBER FROM 1 TO 100000"
  30. 250 PRINT"PRESS DESIRED NUMBER"
  31. 260 INPUT A
  32. 261 REM 260 CHECK FOR A NUMBER TO BE PRESSED
  33. 270 IF A=1 THEN B=(INT(RND(0)*10)+1)
  34. 280 IF A=2 THENB=(INT(RND(0)*100)+1)
  35. 290 IF A=3 THEN B=(INT(RND(0)*1000)+1)
  36. 300 IF A=4 THEN B=(INT(RND(0)*10000)+1)
  37. 301 IF A=5 THEN B=(INT(RND(0)*100000)+1)
  38. 310 REM 270 CHECKS FOR THE #1 TO BE PRESSED THEN GETS A RANDOM NUMBER 1-10
  39. 320 REM 290 CHECKS FOR THE #1 TO BE PRESSED THEN GETS A RANDOM NUMBER 1-1000
  40. 330 REM 300 CHECKS FOR THE #1 TO BE PRESSED THEN GETS A RANDOM NUMBER 1-10000
  41. 340 INPUT "ENTER YOUR NAME PLAYER ONE";N$:REM LETS THE PLAYER ENTER NAME
  42. 350 PRINT"THANK YOU "N$:PRINT"LET'S PLAY THE GAME!"
  43. 360 REM IN LINE 350 N$ STANDS FOR THE PERSON'S NAME
  44. 370 FORI=1TO3000:NEXT:PRINTCHR$(147):REMDELAY 3 SECS. CLEAR THE SCREEN
  45. 380 IF A=1 THEN PRINT"GUESS MY NUMBER FROM 1 TO 10 "N$
  46. 390 IF A=2 THEN PRINT"GUESS MY NUMBER FROM 1 TO 100 "N$
  47. 400 IF A=3 THEN PRINT"GUESS MY NUMBER FROM 1 TO 1000 "N$
  48. 410 IF A=4 THEN PRINT"GUESS MY NUMBER FROM 1 TO 10000 "N$
  49. 411 IF A=5 THEN PRINT"GUESS MY NUMBER FROM 1 TO 100000 "N$
  50. 420 INPUT A:REM CHECKS FOR A NUMBER TO BE PRESSED
  51. 430 Z=Z+1:REM RECORDS HOW MANY TIMES THE PLAYER GUESSED
  52. 440 IF A>B THEN PRINT"PLEASE TRY A SMALLER NUMBER"
  53. 450 IF A<B THEN PRINT"PLEASE TRY A LARGER NUMBER"
  54. 460 IF A=B THEN GOTO 480
  55. 470 GOTO 420
  56. 480 PRINT"CONGRATULATIONS!
  57. 485 [153]"THAT WAS THE NUMBER "N$
  58. 489 [143] LINE 490 PRINTS HOW MANY GUESS IT TOOK TO WIN
  59. 490 [153]"IT TOOK YOU"Z"GUESS(ES)"
  60. 491 [129]I[178]1[164]500
  61. 492 A[178]([181]([187](0)[172]14)[170]1):[143] GET A RANDOM NUMBER
  62. 493 [151]53280,A:[130]I
  63. 500 [153]"WOULD YOU LIKE TO PLAY AGAIN "N$"
  64. 505 PRINT"           Y OR N  ";:INPUT A$
  65. 510 IF A$="YES" THEN GOTO 10
  66. 520 IF A$="Y" THEN GOTO 10
  67. 530 REM LINES500-520 ASKS IF YOU WANT TO PLAY AGAIN AND CHECKS FOR YES OR Y
  68. 540 PRINT"[147] RETURNING TO THE DISK MENU
  69. 545 [147]"MENU",8
  70. 550 [138]
  71. 555 [128]
  72. 560 [143] WHC 90:12:08
  73.